home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / amicad / arexx / sauverauto.amicad < prev    next >
Text File  |  1999-12-06  |  2KB  |  59 lines
  1. /* Sauvegarde automatique   Saint-James, 13 février 1994    Version 1.01 */
  2. /*                Saint-James,  4 juin    1994    Version 1.02 */
  3. /* Modification nom clip    Saint-James,  7 juillet 1994    Version 1.03 */
  4. /* Adaptation AmiTex:        Chez Corbin, 18 septembre 1997  Version 2.00 */
  5. /* Adaptation AmiCAD:        Chez Corbin, 22 Février 1998    Version 2.00 */
  6. /* Ajout traitement du nom si Innomé:      6 Février 1999    Version 2.01 */
  7. /* Adaptation MENU:        Chez Corbin, 22 Mai 1999        Version 2.02 */
  8. /* $VER: 2.02 (© R.Florac, 22/5/99) */
  9.  
  10. port = address()
  11. options results
  12. signal ON error     /* pour interrompre quand le programme quitte */
  13.  
  14. cr = '0a'x
  15.  
  16. sauver_auto=getclip(sauvegarde.port)
  17. if sauver_auto=1 then do        /* Version 1.02 */
  18.     a=setclip(sauvegarde.port,"")
  19.     'MESSAGE("Sauvegarde automatique"+CHR(10)+"interrompue.")'
  20.     exit
  21. end
  22.  
  23. if ~show('l', 'rexxsupport.library') then
  24. do
  25.     if ~addlib('rexxsupport.library',0,-30,0) then do
  26.     'MESSAGE("Installez rexxsupport.library"+CHR(10)+"dans votre répertoire libs: avant"+CHR(10)+"d''utiliser cette macro")'
  27.     exit    /* version 1.02 */
  28.     end
  29. end
  30.  
  31. a=setclip(sauvegarde.port,1)
  32. 'MESSAGE("Une sauvegarde automatique"+CHR(10)+"aura lieu toutes les deux"+CHR(10)+"minutes si le contenu de la"+CHR(10)+"fenêtre active a été modifié."+CHR(10)+"Sélectionnez à nouveau ce script"+CHR(10)+"pour arrêter son exécution.")'
  33.  
  34. do forever            /* Boucle infinie */
  35.     call delay(6000)            /* Délai de deux minutes */
  36.     if ~show(p, port) then goto error
  37.     sauver_auto = getclip(sauvegarde.port)
  38.     if sauver_auto=1 then do
  39.     'MODIF(-1)'             /* Test si texte modifié */
  40.     if result=1 THEN do
  41.         'FILEPART("")'
  42.         if result="Innomé" then do      /* Version 2.01 */
  43.         'REQUEST("Attention le fichier"+CHR(10)+"n''a pas été nommé, sa"+CHR(10)+"sauvegarde est donc impossible"+CHR(10)+"voulez-vous le nommer?")'
  44.         if result<1 then exit
  45.         'MENU("Renommer")'
  46.         'FILEPART("")'
  47.         if result="Innomé" then exit
  48.         end
  49.         'MENU("Save")'      /* Sauvegarde du texte */
  50.     end
  51.     end
  52.     else
  53.     exit
  54. end
  55.  
  56. error:
  57.     a=setclip(sauvegarde.port,"")
  58.     exit
  59.